/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / modes / perl-mode.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 39 3a 33 | 32 20 31 39 39 35 0a 3b | 14:09:3|2 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 6d 6f | 64 65 73 2f 70 65 72 6c |/lisp/mo|des/perl|
|00000090| 2d 6d 6f 64 65 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |-mode.el|.;;; ema|
|000000a0| 63 73 20 76 65 72 73 69 | 6f 6e 20 31 39 2e 31 33 |cs versi|on 19.13|
|000000b0| 20 58 45 6d 61 63 73 20 | 4c 75 63 69 64 2e 0a 3b | XEmacs |Lucid..;|
|000000c0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000d0| 69 6f 6e 20 32 2e 32 35 | 3b 20 31 2d 53 65 70 2d |ion 2.25|; 1-Sep-|
|000000e0| 39 34 2e 0a 3b 3b 3b 20 | 6f 70 74 69 6d 69 7a 61 |94..;;; |optimiza|
|000000f0| 74 69 6f 6e 20 69 73 20 | 6f 6e 2e 0a 3b 3b 3b 20 |tion is |on..;;; |
|00000100| 74 68 69 73 20 66 69 6c | 65 20 75 73 65 73 20 6f |this fil|e uses o|
|00000110| 70 63 6f 64 65 73 20 77 | 68 69 63 68 20 64 6f 20 |pcodes w|hich do |
|00000120| 6e 6f 74 20 65 78 69 73 | 74 20 69 6e 20 45 6d 61 |not exis|t in Ema|
|00000130| 63 73 20 31 38 2e 0a 0a | 28 69 66 20 28 61 6e 64 |cs 18...|(if (and|
|00000140| 20 28 62 6f 75 6e 64 70 | 20 27 65 6d 61 63 73 2d | (boundp| 'emacs-|
|00000150| 76 65 72 73 69 6f 6e 29 | 0a 09 20 28 6f 72 20 28 |version)|.. (or (|
|00000160| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 70 6f |and (bou|ndp 'epo|
|00000170| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 20 65 70 6f |ch::vers|ion) epo|
|00000180| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 0a 09 20 20 |ch::vers|ion)..  |
|00000190| 20 20 20 28 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 |   (stri|ng-lessp|
|000001a0| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 22 | emacs-v|ersion "|
|000001b0| 31 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |19"))). |   (erro|
|000001c0| 72 20 22 54 68 69 73 20 | 66 69 6c 65 20 77 61 73 |r "This |file was|
|000001d0| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|000001e0| 61 63 73 20 31 39 2e 22 | 29 29 0a 0a 28 64 65 66 |acs 19."|))..(def|
|000001f0| 76 61 72 20 70 65 72 6c | 2d 6d 6f 64 65 2d 61 62 |var perl|-mode-ab|
|00000200| 62 72 65 76 2d 74 61 62 | 6c 65 20 6e 69 6c 20 22 |brev-tab|le nil "|
|00000210| 5c 0a 41 62 62 72 65 76 | 20 74 61 62 6c 65 20 69 |\.Abbrev| table i|
|00000220| 6e 20 75 73 65 20 69 6e | 20 70 65 72 6c 2d 6d 6f |n use in| perl-mo|
|00000230| 64 65 20 62 75 66 66 65 | 72 73 2e 22 29 0a 28 64 |de buffe|rs.").(d|
|00000240| 65 66 69 6e 65 2d 61 62 | 62 72 65 76 2d 74 61 62 |efine-ab|brev-tab|
|00000250| 6c 65 20 27 70 65 72 6c | 2d 6d 6f 64 65 2d 61 62 |le 'perl|-mode-ab|
|00000260| 62 72 65 76 2d 74 61 62 | 6c 65 20 6e 69 6c 29 0a |brev-tab|le nil).|
|00000270| 28 64 65 66 76 61 72 20 | 70 65 72 6c 2d 6d 6f 64 |(defvar |perl-mod|
|00000280| 65 2d 6d 61 70 20 6e 69 | 6c 20 22 5c 0a 4b 65 79 |e-map ni|l "\.Key|
|00000290| 6d 61 70 20 75 73 65 64 | 20 69 6e 20 50 65 72 6c |map used| in Perl|
|000002a0| 20 6d 6f 64 65 2e 22 29 | 0a 28 62 79 74 65 2d 63 | mode.")|.(byte-c|
|000002b0| 6f 64 65 20 22 08 ac c4 | c1 20 10 c2 08 c0 5c 22 |ode "...|. ....\"|
|000002c0| 88 c3 08 c4 c5 23 88 c3 | 08 c6 c5 23 88 c3 08 c7 |.....#..|...#....|
|000002d0| c5 23 88 c3 08 c8 c5 23 | 88 c3 08 c9 ca 23 88 c3 |.#.....#|.....#..|
|000002e0| 08 cb cc 23 88 c3 08 cd | ce 23 88 c3 08 cf d0 23 |...#....|.#.....#|
|000002f0| 88 c3 08 d1 d2 23 88 c3 | 08 d3 d4 23 88 c1 87 22 |.....#..|...#..."|
|00000300| 20 5b 70 65 72 6c 2d 6d | 6f 64 65 2d 6d 61 70 20 | [perl-m|ode-map |
|00000310| 6d 61 6b 65 2d 73 70 61 | 72 73 65 2d 6b 65 79 6d |make-spa|rse-keym|
|00000320| 61 70 20 73 65 74 2d 6b | 65 79 6d 61 70 2d 6e 61 |ap set-k|eymap-na|
|00000330| 6d 65 20 64 65 66 69 6e | 65 2d 6b 65 79 20 22 7b |me defin|e-key "{|
|00000340| 22 20 65 6c 65 63 74 72 | 69 63 2d 70 65 72 6c 2d |" electr|ic-perl-|
|00000350| 74 65 72 6d 69 6e 61 74 | 6f 72 20 22 7d 22 20 22 |terminat|or "}" "|
|00000360| 3b 22 20 22 3a 22 20 22 | 1b 01 22 20 70 65 72 6c |;" ":" "|.." perl|
|00000370| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 66 75 |-beginni|ng-of-fu|
|00000380| 6e 63 74 69 6f 6e 20 22 | 1b 05 22 20 70 65 72 6c |nction "|.." perl|
|00000390| 2d 65 6e 64 2d 6f 66 2d | 66 75 6e 63 74 69 6f 6e |-end-of-|function|
|000003a0| 20 22 1b 08 22 20 6d 61 | 72 6b 2d 70 65 72 6c 2d | ".." ma|rk-perl-|
|000003b0| 66 75 6e 63 74 69 6f 6e | 20 22 1b 11 22 20 69 6e |function| ".." in|
|000003c0| 64 65 6e 74 2d 70 65 72 | 6c 2d 65 78 70 20 22 7f |dent-per|l-exp ".|
|000003d0| 22 20 62 61 63 6b 77 61 | 72 64 2d 64 65 6c 65 74 |" backwa|rd-delet|
|000003e0| 65 2d 63 68 61 72 2d 75 | 6e 74 61 62 69 66 79 20 |e-char-u|ntabify |
|000003f0| 22 09 22 20 70 65 72 6c | 2d 69 6e 64 65 6e 74 2d |"." perl|-indent-|
|00000400| 63 6f 6d 6d 61 6e 64 5d | 20 34 29 0a 28 61 75 74 |command]| 4).(aut|
|00000410| 6f 6c 6f 61 64 20 27 63 | 2d 6d 61 63 72 6f 2d 65 |oload 'c|-macro-e|
|00000420| 78 70 61 6e 64 20 22 63 | 6d 61 63 65 78 70 22 20 |xpand "c|macexp" |
|00000430| 22 5c 0a 44 69 73 70 6c | 61 79 20 74 68 65 20 72 |"\.Displ|ay the r|
|00000440| 65 73 75 6c 74 20 6f 66 | 20 65 78 70 61 6e 64 69 |esult of| expandi|
|00000450| 6e 67 20 61 6c 6c 20 43 | 20 6d 61 63 72 6f 73 20 |ng all C| macros |
|00000460| 6f 63 63 75 72 72 69 6e | 67 20 69 6e 20 74 68 65 |occurrin|g in the|
|00000470| 20 72 65 67 69 6f 6e 2e | 0a 54 68 65 20 65 78 70 | region.|.The exp|
|00000480| 61 6e 73 69 6f 6e 20 69 | 73 20 65 6e 74 69 72 65 |ansion i|s entire|
|00000490| 6c 79 20 63 6f 72 72 65 | 63 74 20 62 65 63 61 75 |ly corre|ct becau|
|000004a0| 73 65 20 69 74 20 75 73 | 65 73 20 74 68 65 20 43 |se it us|es the C|
|000004b0| 20 70 72 65 70 72 6f 63 | 65 73 73 6f 72 2e 22 20 | preproc|essor." |
|000004c0| 74 29 0a 28 64 65 66 76 | 61 72 20 70 65 72 6c 2d |t).(defv|ar perl-|
|000004d0| 6d 6f 64 65 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |mode-syn|tax-tabl|
|000004e0| 65 20 6e 69 6c 20 22 5c | 0a 53 79 6e 74 61 78 20 |e nil "\|.Syntax |
|000004f0| 74 61 62 6c 65 20 69 6e | 20 75 73 65 20 69 6e 20 |table in| use in |
|00000500| 70 65 72 6c 2d 6d 6f 64 | 65 20 62 75 66 66 65 72 |perl-mod|e buffer|
|00000510| 73 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |s.").(by|te-code |
|00000520| 22 08 ac e5 c1 c2 20 21 | 10 c3 c4 c5 08 23 88 c3 |"..... !|.....#..|
|00000530| c6 c7 08 23 88 c3 c8 c9 | 08 23 88 c3 ca cb 08 23 |...#....|.#.....#|
|00000540| 88 c3 cc cb 08 23 88 c3 | cd ce 08 23 88 c3 cf cb |.....#..|...#....|
|00000550| 08 23 88 c3 d0 cb 08 23 | 88 c3 d1 cb 08 23 88 c3 |.#.....#|.....#..|
|00000560| d2 cb 08 23 88 c3 d3 cb | 08 23 88 c3 d4 cb 08 23 |...#....|.#.....#|
|00000570| 88 c3 d5 cb 08 23 88 c3 | d6 c9 08 23 88 c3 d7 ce |.....#..|...#....|
|00000580| 08 23 88 c3 d8 cb 08 23 | 88 c1 87 22 20 5b 70 65 |.#.....#|..." [pe|
|00000590| 72 6c 2d 6d 6f 64 65 2d | 73 79 6e 74 61 78 2d 74 |rl-mode-|syntax-t|
|000005a0| 61 62 6c 65 20 6d 61 6b | 65 2d 73 79 6e 74 61 78 |able mak|e-syntax|
|000005b0| 2d 74 61 62 6c 65 20 73 | 74 61 6e 64 61 72 64 2d |-table s|tandard-|
|000005c0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 6d 6f 64 |syntax-t|able mod|
|000005d0| 69 66 79 2d 73 79 6e 74 | 61 78 2d 65 6e 74 72 79 |ify-synt|ax-entry|
|000005e0| 20 31 30 20 22 3e 22 20 | 33 35 20 22 3c 22 20 33 | 10 ">" |35 "<" 3|
|000005f0| 36 20 22 5c 5c 22 20 33 | 37 20 22 2e 22 20 33 38 |6 "\\" 3|7 "." 38|
|00000600| 20 33 39 20 22 5c 22 22 | 20 34 32 20 34 33 20 34 | 39 "\""| 42 43 4|
|00000610| 35 20 34 37 20 36 30 20 | 36 31 20 36 32 20 39 32 |5 47 60 |61 62 92|
|00000620| 20 39 36 20 31 32 34 5d | 20 34 29 0a 28 64 65 66 | 96 124]| 4).(def|
|00000630| 63 6f 6e 73 74 20 70 65 | 72 6c 2d 69 6e 64 65 6e |const pe|rl-inden|
|00000640| 74 2d 6c 65 76 65 6c 20 | 34 20 22 5c 0a 2a 49 6e |t-level |4 "\.*In|
|00000650| 64 65 6e 74 61 74 69 6f | 6e 20 6f 66 20 50 65 72 |dentatio|n of Per|
|00000660| 6c 20 73 74 61 74 65 6d | 65 6e 74 73 20 77 69 74 |l statem|ents wit|
|00000670| 68 20 72 65 73 70 65 63 | 74 20 74 6f 20 63 6f 6e |h respec|t to con|
|00000680| 74 61 69 6e 69 6e 67 20 | 62 6c 6f 63 6b 2e 22 29 |taining |block.")|
|00000690| 0a 28 64 65 66 63 6f 6e | 73 74 20 70 65 72 6c 2d |.(defcon|st perl-|
|000006a0| 63 6f 6e 74 69 6e 75 65 | 64 2d 73 74 61 74 65 6d |continue|d-statem|
|000006b0| 65 6e 74 2d 6f 66 66 73 | 65 74 20 34 20 22 5c 0a |ent-offs|et 4 "\.|
|000006c0| 2a 45 78 74 72 61 20 69 | 6e 64 65 6e 74 20 66 6f |*Extra i|ndent fo|
|000006d0| 72 20 6c 69 6e 65 73 20 | 6e 6f 74 20 73 74 61 72 |r lines |not star|
|000006e0| 74 69 6e 67 20 6e 65 77 | 20 73 74 61 74 65 6d 65 |ting new| stateme|
|000006f0| 6e 74 73 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |nts.").(|defconst|
|00000700| 20 70 65 72 6c 2d 63 6f | 6e 74 69 6e 75 65 64 2d | perl-co|ntinued-|
|00000710| 62 72 61 63 65 2d 6f 66 | 66 73 65 74 20 2d 34 20 |brace-of|fset -4 |
|00000720| 22 5c 0a 2a 45 78 74 72 | 61 20 69 6e 64 65 6e 74 |"\.*Extr|a indent|
|00000730| 20 66 6f 72 20 73 75 62 | 73 74 61 74 65 6d 65 6e | for sub|statemen|
|00000740| 74 73 20 74 68 61 74 20 | 73 74 61 72 74 20 77 69 |ts that |start wi|
|00000750| 74 68 20 6f 70 65 6e 2d | 62 72 61 63 65 73 2e 0a |th open-|braces..|
|00000760| 54 68 69 73 20 69 73 20 | 69 6e 20 61 64 64 69 74 |This is |in addit|
|00000770| 69 6f 6e 20 74 6f 20 70 | 65 72 6c 2d 63 6f 6e 74 |ion to p|erl-cont|
|00000780| 69 6e 75 65 64 2d 73 74 | 61 74 65 6d 65 6e 74 2d |inued-st|atement-|
|00000790| 6f 66 66 73 65 74 2e 22 | 29 0a 28 64 65 66 63 6f |offset."|).(defco|
|000007a0| 6e 73 74 20 70 65 72 6c | 2d 62 72 61 63 65 2d 6f |nst perl|-brace-o|
|000007b0| 66 66 73 65 74 20 30 20 | 22 5c 0a 2a 45 78 74 72 |ffset 0 |"\.*Extr|
|000007c0| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 66 6f |a indent|ation fo|
|000007d0| 72 20 62 72 61 63 65 73 | 2c 20 63 6f 6d 70 61 72 |r braces|, compar|
|000007e0| 65 64 20 77 69 74 68 20 | 6f 74 68 65 72 20 74 65 |ed with |other te|
|000007f0| 78 74 20 69 6e 20 73 61 | 6d 65 20 63 6f 6e 74 65 |xt in sa|me conte|
|00000800| 78 74 2e 22 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |xt.").(d|efconst |
|00000810| 70 65 72 6c 2d 62 72 61 | 63 65 2d 69 6d 61 67 69 |perl-bra|ce-imagi|
|00000820| 6e 61 72 79 2d 6f 66 66 | 73 65 74 20 30 20 22 5c |nary-off|set 0 "\|
|00000830| 0a 2a 49 6d 61 67 69 6e | 65 64 20 69 6e 64 65 6e |.*Imagin|ed inden|
|00000840| 74 61 74 69 6f 6e 20 6f | 66 20 61 6e 20 6f 70 65 |tation o|f an ope|
|00000850| 6e 20 62 72 61 63 65 20 | 74 68 61 74 20 61 63 74 |n brace |that act|
|00000860| 75 61 6c 6c 79 20 66 6f | 6c 6c 6f 77 73 20 61 20 |ually fo|llows a |
|00000870| 73 74 61 74 65 6d 65 6e | 74 2e 22 29 0a 28 64 65 |statemen|t.").(de|
|00000880| 66 63 6f 6e 73 74 20 70 | 65 72 6c 2d 6c 61 62 65 |fconst p|erl-labe|
|00000890| 6c 2d 6f 66 66 73 65 74 | 20 2d 32 20 22 5c 0a 2a |l-offset| -2 "\.*|
|000008a0| 4f 66 66 73 65 74 20 6f | 66 20 50 65 72 6c 20 6c |Offset o|f Perl l|
|000008b0| 61 62 65 6c 20 6c 69 6e | 65 73 20 72 65 6c 61 74 |abel lin|es relat|
|000008c0| 69 76 65 20 74 6f 20 75 | 73 75 61 6c 20 69 6e 64 |ive to u|sual ind|
|000008d0| 65 6e 74 61 74 69 6f 6e | 2e 22 29 0a 28 64 65 66 |entation|.").(def|
|000008e0| 63 6f 6e 73 74 20 70 65 | 72 6c 2d 74 61 62 2d 61 |const pe|rl-tab-a|
|000008f0| 6c 77 61 79 73 2d 69 6e | 64 65 6e 74 20 74 20 22 |lways-in|dent t "|
|00000900| 5c 0a 2a 4e 6f 6e 2d 6e | 69 6c 20 6d 65 61 6e 73 |\.*Non-n|il means|
|00000910| 20 54 41 42 20 69 6e 20 | 50 65 72 6c 20 6d 6f 64 | TAB in |Perl mod|
|00000920| 65 20 73 68 6f 75 6c 64 | 20 61 6c 77 61 79 73 20 |e should| always |
|00000930| 69 6e 64 65 6e 74 20 74 | 68 65 20 63 75 72 72 65 |indent t|he curre|
|00000940| 6e 74 20 6c 69 6e 65 2c | 0a 72 65 67 61 72 64 6c |nt line,|.regardl|
|00000950| 65 73 73 20 6f 66 20 77 | 68 65 72 65 20 69 6e 20 |ess of w|here in |
|00000960| 74 68 65 20 6c 69 6e 65 | 20 70 6f 69 6e 74 20 69 |the line| point i|
|00000970| 73 20 77 68 65 6e 20 74 | 68 65 20 54 41 42 20 63 |s when t|he TAB c|
|00000980| 6f 6d 6d 61 6e 64 20 69 | 73 20 75 73 65 64 2e 22 |ommand i|s used."|
|00000990| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 70 65 72 6c |).(defco|nst perl|
|000009a0| 2d 74 61 62 2d 74 6f 2d | 63 6f 6d 6d 65 6e 74 20 |-tab-to-|comment |
|000009b0| 6e 69 6c 20 22 5c 0a 2a | 4e 6f 6e 2d 6e 69 6c 20 |nil "\.*|Non-nil |
|000009c0| 6d 65 61 6e 73 20 74 68 | 61 74 20 66 6f 72 20 6c |means th|at for l|
|000009d0| 69 6e 65 73 20 77 68 69 | 63 68 20 64 6f 6e 27 74 |ines whi|ch don't|
|000009e0| 20 6e 65 65 64 20 69 6e | 64 65 6e 74 69 6e 67 2c | need in|denting,|
|000009f0| 20 54 41 42 20 77 69 6c | 6c 0a 65 69 74 68 65 72 | TAB wil|l.either|
|00000a00| 20 69 6e 64 65 6e 74 20 | 61 6e 20 65 78 69 73 74 | indent |an exist|
|00000a10| 69 6e 67 20 63 6f 6d 6d | 65 6e 74 2c 20 6d 6f 76 |ing comm|ent, mov|
|00000a20| 65 20 74 6f 20 65 6e 64 | 2d 6f 66 2d 6c 69 6e 65 |e to end|-of-line|
|00000a30| 2c 20 6f 72 20 69 66 20 | 61 74 20 65 6e 64 2d 6f |, or if |at end-o|
|00000a40| 66 2d 6c 69 6e 65 0a 61 | 6c 72 65 61 64 79 2c 20 |f-line.a|lready, |
|00000a50| 63 72 65 61 74 65 20 61 | 20 6e 65 77 20 63 6f 6d |create a| new com|
|00000a60| 6d 65 6e 74 2e 22 29 0a | 28 64 65 66 63 6f 6e 73 |ment.").|(defcons|
|00000a70| 74 20 70 65 72 6c 2d 6e | 6f 63 68 61 6e 67 65 20 |t perl-n|ochange |
|00000a80| 22 3b 3f 23 5c 5c 7c 0c | 5c 5c 7c 5c 5c 73 28 5c |";?#\\|.|\\|\\s(\|
|00000a90| 5c 7c 5c 5c 28 5c 5c 77 | 5c 5c 7c 5c 5c 73 5f 5c |\|\\(\\w|\\|\\s_\|
|00000aa0| 5c 29 2b 3a 22 20 22 5c | 0a 2a 4c 69 6e 65 73 20 |\)+:" "\|.*Lines |
|00000ab0| 73 74 61 72 74 69 6e 67 | 20 77 69 74 68 20 74 68 |starting| with th|
|00000ac0| 69 73 20 72 65 67 75 6c | 61 72 20 65 78 70 72 65 |is regul|ar expre|
|00000ad0| 73 73 69 6f 6e 20 77 69 | 6c 6c 20 6e 6f 74 20 62 |ssion wi|ll not b|
|00000ae0| 65 20 61 75 74 6f 2d 69 | 6e 64 65 6e 74 65 64 2e |e auto-i|ndented.|
|00000af0| 22 29 0a 28 64 65 66 76 | 61 72 20 70 65 72 6c 2d |").(defv|ar perl-|
|00000b00| 6d 6f 64 65 2d 68 6f 6f | 6b 20 6e 69 6c 20 22 5c |mode-hoo|k nil "\|
|00000b10| 0a 49 6e 76 6f 6b 65 64 | 20 6f 6e 20 65 6e 74 72 |.Invoked| on entr|
|00000b20| 79 20 74 6f 20 70 65 72 | 6c 2d 6d 6f 64 65 2e 22 |y to per|l-mode."|
|00000b30| 29 0a 28 66 73 65 74 20 | 27 70 65 72 6c 2d 6d 6f |).(fset |'perl-mo|
|00000b40| 64 65 20 23 5b 6e 69 6c | 20 22 c0 20 88 c1 5c 6e |de #[nil| ". ..\n|
|00000b50| 21 88 c3 14 c5 16 06 0e | 07 16 08 c9 0e 5c 6e 21 |!.......|.....\n!|
|00000b60| 88 cb cc 21 88 cd 0e 0e | 50 16 0c cb cf 21 88 0e |...!....|P....!..|
|00000b70| 0c 16 0f cb d0 21 88 d1 | 16 10 cb d2 21 88 d3 16 |.....!..|....!...|
|00000b80| 12 cb d4 21 88 d1 16 14 | cb d5 21 88 d6 16 15 cb |...!....|..!.....|
|00000b90| d7 21 88 d8 16 17 cb d9 | 21 88 da 16 19 cb db 21 |.!......|!......!|
|00000ba0| 88 dc 16 1b cb dd 21 88 | de 16 1d cb df 21 88 e0 |......!.|.....!..|
|00000bb0| 16 1f e1 e2 21 87 22 20 | 5b 6b 69 6c 6c 2d 61 6c |....!." |[kill-al|
|00000bc0| 6c 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |l-local-|variable|
|00000bd0| 73 20 75 73 65 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 |s use-lo|cal-map |
|00000be0| 70 65 72 6c 2d 6d 6f 64 | 65 2d 6d 61 70 20 70 65 |perl-mod|e-map pe|
|00000bf0| 72 6c 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |rl-mode |major-mo|
|00000c00| 64 65 20 22 50 65 72 6c | 22 20 6d 6f 64 65 2d 6e |de "Perl|" mode-n|
|00000c10| 61 6d 65 20 70 65 72 6c | 2d 6d 6f 64 65 2d 61 62 |ame perl|-mode-ab|
|00000c20| 62 72 65 76 2d 74 61 62 | 6c 65 20 6c 6f 63 61 6c |brev-tab|le local|
|00000c30| 2d 61 62 62 72 65 76 2d | 74 61 62 6c 65 20 73 65 |-abbrev-|table se|
|00000c40| 74 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 70 |t-syntax|-table p|
|00000c50| 65 72 6c 2d 6d 6f 64 65 | 2d 73 79 6e 74 61 78 2d |erl-mode|-syntax-|
|00000c60| 74 61 62 6c 65 20 6d 61 | 6b 65 2d 6c 6f 63 61 6c |table ma|ke-local|
|00000c70| 2d 76 61 72 69 61 62 6c | 65 20 70 61 72 61 67 72 |-variabl|e paragr|
|00000c80| 61 70 68 2d 73 74 61 72 | 74 20 22 5e 24 5c 5c 7c |aph-star|t "^$\\||
|00000c90| 22 20 70 61 67 65 2d 64 | 65 6c 69 6d 69 74 65 72 |" page-d|elimiter|
|00000ca0| 20 70 61 72 61 67 72 61 | 70 68 2d 73 65 70 61 72 | paragra|ph-separ|
|00000cb0| 61 74 65 20 70 61 72 61 | 67 72 61 70 68 2d 69 67 |ate para|graph-ig|
|00000cc0| 6e 6f 72 65 2d 66 69 6c | 6c 2d 70 72 65 66 69 78 |nore-fil|l-prefix|
|00000cd0| 20 74 20 69 6e 64 65 6e | 74 2d 6c 69 6e 65 2d 66 | t inden|t-line-f|
|00000ce0| 75 6e 63 74 69 6f 6e 20 | 70 65 72 6c 2d 69 6e 64 |unction |perl-ind|
|00000cf0| 65 6e 74 2d 6c 69 6e 65 | 20 72 65 71 75 69 72 65 |ent-line| require|
|00000d00| 2d 66 69 6e 61 6c 2d 6e | 65 77 6c 69 6e 65 20 63 |-final-n|ewline c|
|00000d10| 6f 6d 6d 65 6e 74 2d 73 | 74 61 72 74 20 22 23 20 |omment-s|tart "# |
|00000d20| 22 20 63 6f 6d 6d 65 6e | 74 2d 65 6e 64 20 22 22 |" commen|t-end ""|
|00000d30| 20 63 6f 6d 6d 65 6e 74 | 2d 63 6f 6c 75 6d 6e 20 | comment|-column |
|00000d40| 33 32 20 63 6f 6d 6d 65 | 6e 74 2d 73 74 61 72 74 |32 comme|nt-start|
|00000d50| 2d 73 6b 69 70 20 22 5c | 5c 28 5e 5c 5c 7c 5c 5c |-skip "\|\(^\\|\\|
|00000d60| 73 2d 5c 5c 29 3b 3f 23 | 2b 20 2a 22 20 63 6f 6d |s-\\);?#|+ *" com|
|00000d70| 6d 65 6e 74 2d 69 6e 64 | 65 6e 74 2d 66 75 6e 63 |ment-ind|ent-func|
|00000d80| 74 69 6f 6e 20 70 65 72 | 6c 2d 63 6f 6d 6d 65 6e |tion per|l-commen|
|00000d90| 74 2d 69 6e 64 65 6e 74 | 20 70 61 72 73 65 2d 73 |t-indent| parse-s|
|00000da0| 65 78 70 2d 69 67 6e 6f | 72 65 2d 63 6f 6d 6d 65 |exp-igno|re-comme|
|00000db0| 6e 74 73 20 6e 69 6c 20 | 72 75 6e 2d 68 6f 6f 6b |nts nil |run-hook|
|00000dc0| 73 20 70 65 72 6c 2d 6d | 6f 64 65 2d 68 6f 6f 6b |s perl-m|ode-hook|
|00000dd0| 5d 20 32 20 22 5c 0a 4d | 61 6a 6f 72 20 6d 6f 64 |] 2 "\.M|ajor mod|
|00000de0| 65 20 66 6f 72 20 65 64 | 69 74 69 6e 67 20 50 65 |e for ed|iting Pe|
|00000df0| 72 6c 20 63 6f 64 65 2e | 0a 45 78 70 72 65 73 73 |rl code.|.Express|
|00000e00| 69 6f 6e 20 61 6e 64 20 | 6c 69 73 74 20 63 6f 6d |ion and |list com|
|00000e10| 6d 61 6e 64 73 20 75 6e | 64 65 72 73 74 61 6e 64 |mands un|derstand|
|00000e20| 20 61 6c 6c 20 50 65 72 | 6c 20 62 72 61 63 6b 65 | all Per|l bracke|
|00000e30| 74 73 2e 0a 54 61 62 20 | 69 6e 64 65 6e 74 73 20 |ts..Tab |indents |
|00000e40| 66 6f 72 20 50 65 72 6c | 20 63 6f 64 65 2e 0a 43 |for Perl| code..C|
|00000e50| 6f 6d 6d 65 6e 74 73 20 | 61 72 65 20 64 65 6c 69 |omments |are deli|
|00000e60| 6d 69 74 65 64 20 77 69 | 74 68 20 23 20 2e 2e 2e |mited wi|th # ...|
|00000e70| 20 5c 5c 6e 2e 0a 50 61 | 72 61 67 72 61 70 68 73 | \\n..Pa|ragraphs|
|00000e80| 20 61 72 65 20 73 65 70 | 61 72 61 74 65 64 20 62 | are sep|arated b|
|00000e90| 79 20 62 6c 61 6e 6b 20 | 6c 69 6e 65 73 20 6f 6e |y blank |lines on|
|00000ea0| 6c 79 2e 0a 44 65 6c 65 | 74 65 20 63 6f 6e 76 65 |ly..Dele|te conve|
|00000eb0| 72 74 73 20 74 61 62 73 | 20 74 6f 20 73 70 61 63 |rts tabs| to spac|
|00000ec0| 65 73 20 61 73 20 69 74 | 20 6d 6f 76 65 73 20 62 |es as it| moves b|
|00000ed0| 61 63 6b 2e 0a 5c 5c 7b | 70 65 72 6c 2d 6d 6f 64 |ack..\\{|perl-mod|
|00000ee0| 65 2d 6d 61 70 7d 0a 56 | 61 72 69 61 62 6c 65 73 |e-map}.V|ariables|
|00000ef0| 20 63 6f 6e 74 72 6f 6c | 6c 69 6e 67 20 69 6e 64 | control|ling ind|
|00000f00| 65 6e 74 61 74 69 6f 6e | 20 73 74 79 6c 65 3a 0a |entation| style:.|
|00000f10| 20 70 65 72 6c 2d 74 61 | 62 2d 61 6c 77 61 79 73 | perl-ta|b-always|
|00000f20| 2d 69 6e 64 65 6e 74 0a | 20 20 20 20 4e 6f 6e 2d |-indent.|    Non-|
|00000f30| 6e 69 6c 20 6d 65 61 6e | 73 20 54 41 42 20 69 6e |nil mean|s TAB in|
|00000f40| 20 50 65 72 6c 20 6d 6f | 64 65 20 73 68 6f 75 6c | Perl mo|de shoul|
|00000f50| 64 20 61 6c 77 61 79 73 | 20 69 6e 64 65 6e 74 20 |d always| indent |
|00000f60| 74 68 65 20 63 75 72 72 | 65 6e 74 20 6c 69 6e 65 |the curr|ent line|
|00000f70| 2c 0a 20 20 20 20 72 65 | 67 61 72 64 6c 65 73 73 |,.    re|gardless|
|00000f80| 20 6f 66 20 77 68 65 72 | 65 20 69 6e 20 74 68 65 | of wher|e in the|
|00000f90| 20 6c 69 6e 65 20 70 6f | 69 6e 74 20 69 73 20 77 | line po|int is w|
|00000fa0| 68 65 6e 20 74 68 65 20 | 54 41 42 20 63 6f 6d 6d |hen the |TAB comm|
|00000fb0| 61 6e 64 20 69 73 20 75 | 73 65 64 2e 0a 20 70 65 |and is u|sed.. pe|
|00000fc0| 72 6c 2d 74 61 62 2d 74 | 6f 2d 63 6f 6d 6d 65 6e |rl-tab-t|o-commen|
|00000fd0| 74 0a 20 20 20 20 4e 6f | 6e 2d 6e 69 6c 20 6d 65 |t.    No|n-nil me|
|00000fe0| 61 6e 73 20 74 68 61 74 | 20 66 6f 72 20 6c 69 6e |ans that| for lin|
|00000ff0| 65 73 20 77 68 69 63 68 | 20 64 6f 6e 27 74 20 6e |es which| don't n|
|00001000| 65 65 64 20 69 6e 64 65 | 6e 74 69 6e 67 2c 20 54 |eed inde|nting, T|
|00001010| 41 42 20 77 69 6c 6c 0a | 20 20 20 20 65 69 74 68 |AB will.|    eith|
|00001020| 65 72 20 64 65 6c 65 74 | 65 20 61 6e 20 65 6d 70 |er delet|e an emp|
|00001030| 74 79 20 63 6f 6d 6d 65 | 6e 74 2c 20 69 6e 64 65 |ty comme|nt, inde|
|00001040| 6e 74 20 61 6e 20 65 78 | 69 73 74 69 6e 67 20 63 |nt an ex|isting c|
|00001050| 6f 6d 6d 65 6e 74 2c 20 | 6d 6f 76 65 20 0a 20 20 |omment, |move .  |
|00001060| 20 20 74 6f 20 65 6e 64 | 2d 6f 66 2d 6c 69 6e 65 |  to end|-of-line|
|00001070| 2c 20 6f 72 20 69 66 20 | 61 74 20 65 6e 64 2d 6f |, or if |at end-o|
|00001080| 66 2d 6c 69 6e 65 20 61 | 6c 72 65 61 64 79 2c 20 |f-line a|lready, |
|00001090| 63 72 65 61 74 65 20 61 | 20 6e 65 77 20 63 6f 6d |create a| new com|
|000010a0| 6d 65 6e 74 2e 0a 20 70 | 65 72 6c 2d 6e 6f 63 68 |ment.. p|erl-noch|
|000010b0| 61 6e 67 65 0a 20 20 20 | 20 4c 69 6e 65 73 20 73 |ange.   | Lines s|
|000010c0| 74 61 72 74 69 6e 67 20 | 77 69 74 68 20 74 68 69 |tarting |with thi|
|000010d0| 73 20 72 65 67 75 6c 61 | 72 20 65 78 70 72 65 73 |s regula|r expres|
|000010e0| 73 69 6f 6e 20 77 69 6c | 6c 20 6e 6f 74 20 62 65 |sion wil|l not be|
|000010f0| 20 61 75 74 6f 2d 69 6e | 64 65 6e 74 65 64 2e 0a | auto-in|dented..|
|00001100| 20 70 65 72 6c 2d 69 6e | 64 65 6e 74 2d 6c 65 76 | perl-in|dent-lev|
|00001110| 65 6c 0a 20 20 20 20 49 | 6e 64 65 6e 74 61 74 69 |el.    I|ndentati|
|00001120| 6f 6e 20 6f 66 20 50 65 | 72 6c 20 73 74 61 74 65 |on of Pe|rl state|
|00001130| 6d 65 6e 74 73 20 77 69 | 74 68 69 6e 20 73 75 72 |ments wi|thin sur|
|00001140| 72 6f 75 6e 64 69 6e 67 | 20 62 6c 6f 63 6b 2e 0a |rounding| block..|
|00001150| 20 20 20 20 54 68 65 20 | 73 75 72 72 6f 75 6e 64 |    The |surround|
|00001160| 69 6e 67 20 62 6c 6f 63 | 6b 27 73 20 69 6e 64 65 |ing bloc|k's inde|
|00001170| 6e 74 61 74 69 6f 6e 20 | 69 73 20 74 68 65 20 69 |ntation |is the i|
|00001180| 6e 64 65 6e 74 61 74 69 | 6f 6e 0a 20 20 20 20 6f |ndentati|on.    o|
|00001190| 66 20 74 68 65 20 6c 69 | 6e 65 20 6f 6e 20 77 68 |f the li|ne on wh|
|000011a0| 69 63 68 20 74 68 65 20 | 6f 70 65 6e 2d 62 72 61 |ich the |open-bra|
|000011b0| 63 65 20 61 70 70 65 61 | 72 73 2e 0a 20 70 65 72 |ce appea|rs.. per|
|000011c0| 6c 2d 63 6f 6e 74 69 6e | 75 65 64 2d 73 74 61 74 |l-contin|ued-stat|
|000011d0| 65 6d 65 6e 74 2d 6f 66 | 66 73 65 74 0a 20 20 20 |ement-of|fset.   |
|000011e0| 20 45 78 74 72 61 20 69 | 6e 64 65 6e 74 61 74 69 | Extra i|ndentati|
|000011f0| 6f 6e 20 67 69 76 65 6e | 20 74 6f 20 61 20 73 75 |on given| to a su|
|00001200| 62 73 74 61 74 65 6d 65 | 6e 74 2c 20 73 75 63 68 |bstateme|nt, such|
|00001210| 20 61 73 20 74 68 65 0a | 20 20 20 20 74 68 65 6e | as the.|    then|
|00001220| 2d 63 6c 61 75 73 65 20 | 6f 66 20 61 6e 20 69 66 |-clause |of an if|
|00001230| 20 6f 72 20 62 6f 64 79 | 20 6f 66 20 61 20 77 68 | or body| of a wh|
|00001240| 69 6c 65 2e 0a 20 70 65 | 72 6c 2d 63 6f 6e 74 69 |ile.. pe|rl-conti|
|00001250| 6e 75 65 64 2d 62 72 61 | 63 65 2d 6f 66 66 73 65 |nued-bra|ce-offse|
|00001260| 74 0a 20 20 20 20 45 78 | 74 72 61 20 69 6e 64 65 |t.    Ex|tra inde|
|00001270| 6e 74 61 74 69 6f 6e 20 | 67 69 76 65 6e 20 74 6f |ntation |given to|
|00001280| 20 61 20 62 72 61 63 65 | 20 74 68 61 74 20 73 74 | a brace| that st|
|00001290| 61 72 74 73 20 61 20 73 | 75 62 73 74 61 74 65 6d |arts a s|ubstatem|
|000012a0| 65 6e 74 2e 0a 20 20 20 | 20 54 68 69 73 20 69 73 |ent..   | This is|
|000012b0| 20 69 6e 20 61 64 64 69 | 74 69 6f 6e 20 74 6f 20 | in addi|tion to |
|000012c0| 70 65 72 6c 2d 63 6f 6e | 74 69 6e 75 65 64 2d 73 |perl-con|tinued-s|
|000012d0| 74 61 74 65 6d 65 6e 74 | 2d 6f 66 66 73 65 74 2e |tatement|-offset.|
|000012e0| 0a 20 70 65 72 6c 2d 62 | 72 61 63 65 2d 6f 66 66 |. perl-b|race-off|
|000012f0| 73 65 74 0a 20 20 20 20 | 45 78 74 72 61 20 69 6e |set.    |Extra in|
|00001300| 64 65 6e 74 61 74 69 6f | 6e 20 66 6f 72 20 6c 69 |dentatio|n for li|
|00001310| 6e 65 20 69 66 20 69 74 | 20 73 74 61 72 74 73 20 |ne if it| starts |
|00001320| 77 69 74 68 20 61 6e 20 | 6f 70 65 6e 20 62 72 61 |with an |open bra|
|00001330| 63 65 2e 0a 20 70 65 72 | 6c 2d 62 72 61 63 65 2d |ce.. per|l-brace-|
|00001340| 69 6d 61 67 69 6e 61 72 | 79 2d 6f 66 66 73 65 74 |imaginar|y-offset|
|00001350| 0a 20 20 20 20 41 6e 20 | 6f 70 65 6e 20 62 72 61 |.    An |open bra|
|00001360| 63 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 6f 74 68 |ce follo|wing oth|
|00001370| 65 72 20 74 65 78 74 20 | 69 73 20 74 72 65 61 74 |er text |is treat|
|00001380| 65 64 20 61 73 20 69 66 | 20 69 74 20 77 65 72 65 |ed as if| it were|
|00001390| 0a 20 20 20 20 74 68 69 | 73 20 66 61 72 20 74 6f |.    thi|s far to|
|000013a0| 20 74 68 65 20 72 69 67 | 68 74 20 6f 66 20 74 68 | the rig|ht of th|
|000013b0| 65 20 73 74 61 72 74 20 | 6f 66 20 69 74 73 20 6c |e start |of its l|
|000013c0| 69 6e 65 2e 0a 20 70 65 | 72 6c 2d 6c 61 62 65 6c |ine.. pe|rl-label|
|000013d0| 2d 6f 66 66 73 65 74 0a | 20 20 20 20 45 78 74 72 |-offset.|    Extr|
|000013e0| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 66 6f |a indent|ation fo|
|000013f0| 72 20 6c 69 6e 65 20 74 | 68 61 74 20 69 73 20 61 |r line t|hat is a|
|00001400| 20 6c 61 62 65 6c 2e 0a | 0a 56 61 72 69 6f 75 73 | label..|.Various|
|00001410| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 73 74 79 | indenta|tion sty|
|00001420| 6c 65 73 3a 20 20 20 20 | 20 20 20 4b 26 52 20 20 |les:    |   K&R  |
|00001430| 42 53 44 20 20 42 4c 4b | 20 20 47 4e 55 20 20 4c |BSD  BLK|  GNU  L|
|00001440| 57 0a 20 20 70 65 72 6c | 2d 69 6e 64 65 6e 74 2d |W.  perl|-indent-|
|00001450| 6c 65 76 65 6c 20 20 20 | 20 20 20 20 20 20 20 20 |level   |        |
|00001460| 20 20 20 20 20 35 20 20 | 20 20 38 20 20 20 20 30 |     5  |  8    0|
|00001470| 20 20 20 20 32 20 20 20 | 20 34 0a 20 20 70 65 72 |    2   | 4.  per|
|00001480| 6c 2d 63 6f 6e 74 69 6e | 75 65 64 2d 73 74 61 74 |l-contin|ued-stat|
|00001490| 65 6d 65 6e 74 2d 6f 66 | 66 73 65 74 20 20 35 20 |ement-of|fset  5 |
|000014a0| 20 20 20 38 20 20 20 20 | 34 20 20 20 20 32 20 20 |   8    |4    2  |
|000014b0| 20 20 34 0a 20 20 70 65 | 72 6c 2d 63 6f 6e 74 69 |  4.  pe|rl-conti|
|000014c0| 6e 75 65 64 2d 62 72 61 | 63 65 2d 6f 66 66 73 65 |nued-bra|ce-offse|
|000014d0| 74 20 20 20 20 20 20 30 | 20 20 20 20 30 20 20 20 |t      0|    0   |
|000014e0| 20 30 20 20 20 20 30 20 | 20 20 2d 34 0a 20 20 70 | 0    0 |  -4.  p|
|000014f0| 65 72 6c 2d 62 72 61 63 | 65 2d 6f 66 66 73 65 74 |erl-brac|e-offset|
|00001500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2d |        |       -|
|00001510| 35 20 20 20 2d 38 20 20 | 20 20 30 20 20 20 20 30 |5   -8  |  0    0|
|00001520| 20 20 20 20 30 0a 20 20 | 70 65 72 6c 2d 62 72 61 |    0.  |perl-bra|
|00001530| 63 65 2d 69 6d 61 67 69 | 6e 61 72 79 2d 6f 66 66 |ce-imagi|nary-off|
|00001540| 73 65 74 20 20 20 20 20 | 20 30 20 20 20 20 30 20 |set     | 0    0 |
|00001550| 20 20 20 34 20 20 20 20 | 30 20 20 20 20 30 0a 20 |   4    |0    0. |
|00001560| 20 70 65 72 6c 2d 6c 61 | 62 65 6c 2d 6f 66 66 73 | perl-la|bel-offs|
|00001570| 65 74 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |et      |        |
|00001580| 20 2d 35 20 20 20 2d 38 | 20 20 20 2d 32 20 20 20 | -5   -8|   -2   |
|00001590| 2d 32 20 20 20 2d 32 0a | 0a 54 75 72 6e 69 6e 67 |-2   -2.|.Turning|
|000015a0| 20 6f 6e 20 50 65 72 6c | 20 6d 6f 64 65 20 63 61 | on Perl| mode ca|
|000015b0| 6c 6c 73 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |lls the |value of|
|000015c0| 20 74 68 65 20 76 61 72 | 69 61 62 6c 65 20 70 65 | the var|iable pe|
|000015d0| 72 6c 2d 6d 6f 64 65 2d | 68 6f 6f 6b 20 77 69 74 |rl-mode-|hook wit|
|000015e0| 68 20 6e 6f 20 0a 61 72 | 67 73 2c 20 69 66 20 74 |h no .ar|gs, if t|
|000015f0| 68 61 74 20 76 61 6c 75 | 65 20 69 73 20 6e 6f 6e |hat valu|e is non|
|00001600| 2d 6e 69 6c 2e 22 20 6e | 69 6c 5d 29 0a 28 66 73 |-nil." n|il]).(fs|
|00001610| 65 74 20 27 70 65 72 6c | 2d 63 6f 6d 6d 65 6e 74 |et 'perl|-comment|
|00001620| 2d 69 6e 64 65 6e 74 20 | 23 5b 6e 69 6c 20 22 6e |-indent |#[nil "n|
|00001630| ab 85 6c ac 82 c0 87 8a | c1 c2 78 88 69 54 0b 5d |..l.....|..x.iT.]|
|00001640| 29 87 22 20 5b 30 20 22 | 20 09 22 20 6e 69 6c 20 |)." [0 "| ." nil |
|00001650| 63 6f 6d 6d 65 6e 74 2d | 63 6f 6c 75 6d 6e 5d 20 |comment-|column] |
|00001660| 32 5d 29 0a 28 66 73 65 | 74 20 27 65 6c 65 63 74 |2]).(fse|t 'elect|
|00001670| 72 69 63 2d 70 65 72 6c | 2d 74 65 72 6d 69 6e 61 |ric-perl|-termina|
|00001680| 74 6f 72 20 23 5b 28 61 | 72 67 29 20 22 60 18 09 |tor #[(a|rg) "`..|
|00001690| ac c3 6c ab c0 8a c2 79 | 88 c3 0c 08 c5 23 3f ad |..l....y|.....#?.|
|000016a0| a4 0e 06 c7 55 ab 85 c8 | c9 21 ad 99 ca cb 20 08 |....U...|.!.... .|
|000016b0| 5c 22 1e 0c cd 0e 0c 38 | ae 8a ce 0e 0c 38 ae 84 |\".....8|.....8..|
|000016c0| cf 0e 0c 38 29 3f 29 ab | 8d d0 0e 06 d1 5c 22 88 |...8)?).|.....\".|
|000016d0| d2 20 88 d3 d4 21 88 29 | d5 d6 09 21 21 87 22 20 |. ...!.)|...!!." |
|000016e0| 5b 69 6e 73 65 72 74 70 | 6f 73 20 61 72 67 20 30 |[insertp|os arg 0|
|000016f0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00001700| 72 64 20 63 6f 6d 6d 65 | 6e 74 2d 73 74 61 72 74 |rd comme|nt-start|
|00001710| 2d 73 6b 69 70 20 74 20 | 6c 61 73 74 2d 63 6f 6d |-skip t |last-com|
|00001720| 6d 61 6e 64 2d 63 68 61 | 72 20 35 38 20 6c 6f 6f |mand-cha|r 58 loo|
|00001730| 6b 69 6e 67 2d 61 74 20 | 22 5c 5c 73 2d 2a 5c 5c |king-at |"\\s-*\\|
|00001740| 28 5c 5c 77 5c 5c 7c 5c | 5c 73 5f 5c 5c 29 2b 24 |(\\w\\|\|\s_\\)+$|
|00001750| 22 20 70 61 72 73 65 2d | 70 61 72 74 69 61 6c 2d |" parse-|partial-|
|00001760| 73 65 78 70 20 70 65 72 | 6c 2d 62 65 67 69 6e 6e |sexp per|l-beginn|
|00001770| 69 6e 67 2d 6f 66 2d 66 | 75 6e 63 74 69 6f 6e 20 |ing-of-f|unction |
|00001780| 70 70 73 20 33 20 34 20 | 35 20 69 6e 73 65 72 74 |pps 3 4 |5 insert|
|00001790| 2d 63 68 61 72 20 31 20 | 70 65 72 6c 2d 69 6e 64 |-char 1 |perl-ind|
|000017a0| 65 6e 74 2d 6c 69 6e 65 | 20 64 65 6c 65 74 65 2d |ent-line| delete-|
|000017b0| 63 68 61 72 20 2d 31 20 | 73 65 6c 66 2d 69 6e 73 |char -1 |self-ins|
|000017c0| 65 72 74 2d 63 6f 6d 6d | 61 6e 64 20 70 72 65 66 |ert-comm|and pref|
|000017d0| 69 78 2d 6e 75 6d 65 72 | 69 63 2d 76 61 6c 75 65 |ix-numer|ic-value|
|000017e0| 5d 20 34 20 22 5c 0a 49 | 6e 73 65 72 74 20 63 68 |] 4 "\.I|nsert ch|
|000017f0| 61 72 61 63 74 65 72 2e | 20 20 49 66 20 61 74 20 |aracter.|  If at |
|00001800| 65 6e 64 2d 6f 66 2d 6c | 69 6e 65 2c 20 61 6e 64 |end-of-l|ine, and|
|00001810| 20 6e 6f 74 20 69 6e 20 | 61 20 63 6f 6d 6d 65 6e | not in |a commen|
|00001820| 74 20 6f 72 20 61 20 71 | 75 6f 74 65 2c 0a 63 6f |t or a q|uote,.co|
|00001830| 72 72 65 63 74 20 74 68 | 65 20 6c 69 6e 65 27 73 |rrect th|e line's|
|00001840| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 2e 22 20 22 | indenta|tion." "|
|00001850| 50 22 5d 29 0a 28 66 73 | 65 74 20 27 70 65 72 6c |P"]).(fs|et 'perl|
|00001860| 2d 69 6e 64 65 6e 74 2d | 63 6f 6d 6d 61 6e 64 20 |-indent-|command |
|00001870| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |#[(&opti|onal arg|
|00001880| 29 20 22 08 ab 84 c1 c2 | 21 87 0b ac 89 69 c4 20 |) ".....|!....i. |
|00001890| 58 ab 83 c5 20 87 c6 89 | 89 60 1e 07 1e 08 1e 09 |X... ...|.`......|
|000018a0| 1e 5c 6e cb 79 88 60 16 | 09 cc 20 16 5c 6e 0e 07 |.\n.y.`.|.. .\n..|
|000018b0| 62 88 c1 cd 0e 5c 6e 5c | 22 16 08 0e 0e 85 ed 00 |b....\n\|".......|
|000018c0| 0e 07 60 55 85 ed 00 0e | 08 3c ab 8d cf 0e 08 38 |..`U....|.<.....8|
|000018d0| ae 82 0e 5c 6e 89 16 09 | aa 84 0e 08 cb 55 85 ed |...\n...|.....U..|
|000018e0| 00 c6 89 1e 10 1e 11 c6 | 7f 88 60 16 11 0e 5c 6e |........|..`...\n|
|000018f0| 66 d2 55 ab 8c 0e 07 0e | 11 55 ad f9 d3 d4 21 aa |f.U.....|.U....!.|
|00001900| f4 d5 0e 09 0e 11 5c 22 | 16 10 d6 0e 10 38 ab 90 |......\"|.....8..|
|00001910| 0e 07 0e 11 55 ad df d3 | d7 d6 0e 10 38 5c 22 aa |....U...|....8\".|
|00001920| d6 d8 0e 10 38 ac 8b 0e | 07 0e 11 55 ad c9 d9 20 |....8...|...U... |
|00001930| aa c5 cb 79 88 da 0e 1b | 0e 11 dc 23 ab a7 6c ab |...y....|...#..l.|
|00001940| 8f cb 94 62 88 dd c6 78 | 88 de 60 0e 11 5c 22 aa |...b...x|..`..\".|
|00001950| a7 0e 07 60 57 ac 87 0e | 07 0e 11 55 ab 84 d9 20 |...`W...|...U... |
|00001960| aa 96 c6 7f aa 92 0e 07 | 0e 11 55 ac 84 c6 7f aa |........|..U.....|
|00001970| 87 d3 df 21 88 e0 e1 21 | 2a 2c 87 22 20 5b 61 72 |...!...!|*,." [ar|
|00001980| 67 20 70 65 72 6c 2d 69 | 6e 64 65 6e 74 2d 6c 69 |g perl-i|ndent-li|
|00001990| 6e 65 20 22 0c 22 20 70 | 65 72 6c 2d 74 61 62 2d |ne "." p|erl-tab-|
|000019a0| 61 6c 77 61 79 73 2d 69 | 6e 64 65 6e 74 20 63 75 |always-i|ndent cu|
|000019b0| 72 72 65 6e 74 2d 69 6e | 64 65 6e 74 61 74 69 6f |rrent-in|dentatio|
|000019c0| 6e 20 69 6e 73 65 72 74 | 2d 74 61 62 20 6e 69 6c |n insert|-tab nil|
|000019d0| 20 6f 6c 64 70 6e 74 20 | 64 65 6c 74 61 20 6c 73 | oldpnt |delta ls|
|000019e0| 65 78 70 20 62 6f 66 20 | 30 20 70 65 72 6c 2d 62 |exp bof |0 perl-b|
|000019f0| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 66 75 6e 63 |eginning|-of-func|
|00001a00| 74 69 6f 6e 20 22 0c 5c | 5c 7c 3b 3f 23 22 20 70 |tion ".\|\|;?#" p|
|00001a10| 65 72 6c 2d 74 61 62 2d | 74 6f 2d 63 6f 6d 6d 65 |erl-tab-|to-comme|
|00001a20| 6e 74 20 32 20 73 74 61 | 74 65 20 65 6f 6c 20 36 |nt 2 sta|te eol 6|
|00001a30| 31 20 6d 65 73 73 61 67 | 65 20 22 49 6e 20 61 20 |1 messag|e "In a |
|00001a40| 66 6f 72 6d 61 74 20 73 | 74 61 74 65 6d 65 6e 74 |format s|tatement|
|00001a50| 22 20 70 61 72 73 65 2d | 70 61 72 74 69 61 6c 2d |" parse-|partial-|
|00001a60| 73 65 78 70 20 33 20 22 | 49 6e 20 61 20 73 74 72 |sexp 3 "|In a str|
|00001a70| 69 6e 67 20 77 68 69 63 | 68 20 73 74 61 72 74 73 |ing whic|h starts|
|00001a80| 20 77 69 74 68 20 61 20 | 25 63 2e 22 20 34 20 69 | with a |%c." 4 i|
|00001a90| 6e 64 65 6e 74 2d 66 6f | 72 2d 63 6f 6d 6d 65 6e |ndent-fo|r-commen|
|00001aa0| 74 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |t re-sea|rch-forw|
|00001ab0| 61 72 64 20 63 6f 6d 6d | 65 6e 74 2d 73 74 61 72 |ard comm|ent-star|
|00001ac0| 74 2d 73 6b 69 70 20 6d | 6f 76 65 20 22 20 09 22 |t-skip m|ove " ."|
|00001ad0| 20 6b 69 6c 6c 2d 72 65 | 67 69 6f 6e 20 22 55 73 | kill-re|gion "Us|
|00001ae0| 65 20 62 61 63 6b 73 6c | 61 73 68 20 74 6f 20 71 |e backsl|ash to q|
|00001af0| 75 6f 74 65 20 23 20 63 | 68 61 72 61 63 74 65 72 |uote # c|haracter|
|00001b00| 73 2e 22 20 64 69 6e 67 | 20 74 5d 20 34 20 22 5c |s." ding| t] 4 "\|
|00001b10| 0a 49 6e 64 65 6e 74 20 | 63 75 72 72 65 6e 74 20 |.Indent |current |
|00001b20| 6c 69 6e 65 20 61 73 20 | 50 65 72 6c 20 63 6f 64 |line as |Perl cod|
|00001b30| 65 2c 20 6f 72 20 6f 70 | 74 69 6f 6e 61 6c 6c 79 |e, or op|tionally|
|00001b40| 2c 20 69 6e 73 65 72 74 | 20 61 20 74 61 62 20 63 |, insert| a tab c|
|00001b50| 68 61 72 61 63 74 65 72 | 2e 0a 0a 57 69 74 68 20 |haracter|...With |
|00001b60| 61 6e 20 61 72 67 75 6d | 65 6e 74 2c 20 69 6e 64 |an argum|ent, ind|
|00001b70| 65 6e 74 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ent the |current |
|00001b80| 6c 69 6e 65 2c 20 72 65 | 67 61 72 64 6c 65 73 73 |line, re|gardless|
|00001b90| 20 6f 66 20 6f 74 68 65 | 72 20 6f 70 74 69 6f 6e | of othe|r option|
|00001ba0| 73 2e 0a 0a 49 66 20 70 | 65 72 6c 2d 74 61 62 2d |s...If p|erl-tab-|
|00001bb0| 61 6c 77 61 79 73 2d 69 | 6e 64 65 6e 74 20 69 73 |always-i|ndent is|
|00001bc0| 20 6e 69 6c 20 61 6e 64 | 20 70 6f 69 6e 74 20 69 | nil and| point i|
|00001bd0| 73 20 6e 6f 74 20 69 6e | 20 74 68 65 20 69 6e 64 |s not in| the ind|
|00001be0| 65 6e 74 61 74 69 6f 6e | 0a 61 72 65 61 20 61 74 |entation|.area at|
|00001bf0| 20 74 68 65 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f | the beg|inning o|
|00001c00| 66 20 74 68 65 20 6c 69 | 6e 65 2c 20 73 69 6d 70 |f the li|ne, simp|
|00001c10| 6c 79 20 69 6e 73 65 72 | 74 20 61 20 74 61 62 2e |ly inser|t a tab.|
|00001c20| 0a 0a 4f 74 68 65 72 77 | 69 73 65 2c 20 69 6e 64 |..Otherw|ise, ind|
|00001c30| 65 6e 74 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ent the |current |
|00001c40| 6c 69 6e 65 2e 20 20 49 | 66 20 70 6f 69 6e 74 20 |line.  I|f point |
|00001c50| 77 61 73 20 77 69 74 68 | 69 6e 20 74 68 65 20 69 |was with|in the i|
|00001c60| 6e 64 65 6e 74 61 74 69 | 6f 6e 0a 61 72 65 61 20 |ndentati|on.area |
|00001c70| 69 74 20 69 73 20 6d 6f | 76 65 64 20 74 6f 20 74 |it is mo|ved to t|
|00001c80| 68 65 20 65 6e 64 20 6f | 66 20 74 68 65 20 69 6e |he end o|f the in|
|00001c90| 64 65 6e 74 61 74 69 6f | 6e 20 61 72 65 61 2e 20 |dentatio|n area. |
|00001ca0| 20 49 66 20 74 68 65 20 | 6c 69 6e 65 20 77 61 73 | If the |line was|
|00001cb0| 0a 61 6c 72 65 61 64 79 | 20 69 6e 64 65 6e 74 65 |.already| indente|
|00001cc0| 64 20 70 72 6f 70 65 72 | 6c 79 20 61 6e 64 20 70 |d proper|ly and p|
|00001cd0| 6f 69 6e 74 20 77 61 73 | 20 6e 6f 74 20 77 69 74 |oint was| not wit|
|00001ce0| 68 69 6e 20 74 68 65 20 | 69 6e 64 65 6e 74 61 74 |hin the |indentat|
|00001cf0| 69 6f 6e 20 61 72 65 61 | 2c 0a 61 6e 64 20 69 66 |ion area|,.and if|
|00001d00| 20 70 65 72 6c 2d 74 61 | 62 2d 74 6f 2d 63 6f 6d | perl-ta|b-to-com|
|00001d10| 6d 65 6e 74 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 20 |ment is |non-nil |
|00001d20| 28 74 68 65 20 64 65 66 | 61 75 6c 74 29 2c 20 74 |(the def|ault), t|
|00001d30| 68 65 6e 20 64 6f 20 74 | 68 65 20 66 69 72 73 74 |hen do t|he first|
|00001d40| 0a 70 6f 73 73 69 62 6c | 65 20 61 63 74 69 6f 6e |.possibl|e action|
|00001d50| 20 66 72 6f 6d 20 74 68 | 65 20 66 6f 6c 6c 6f 77 | from th|e follow|
|00001d60| 69 6e 67 20 6c 69 73 74 | 3a 0a 0a 20 20 31 29 20 |ing list|:..  1) |
|00001d70| 64 65 6c 65 74 65 20 61 | 6e 20 65 6d 70 74 79 20 |delete a|n empty |
|00001d80| 63 6f 6d 6d 65 6e 74 0a | 20 20 32 29 20 6d 6f 76 |comment.|  2) mov|
|00001d90| 65 20 66 6f 72 77 61 72 | 64 20 74 6f 20 73 74 61 |e forwar|d to sta|
|00001da0| 72 74 20 6f 66 20 63 6f | 6d 6d 65 6e 74 2c 20 69 |rt of co|mment, i|
|00001db0| 6e 64 65 6e 74 69 6e 67 | 20 69 66 20 6e 65 63 65 |ndenting| if nece|
|00001dc0| 73 73 61 72 79 0a 20 20 | 33 29 20 6d 6f 76 65 20 |ssary.  |3) move |
|00001dd0| 66 6f 72 77 61 72 64 20 | 74 6f 20 65 6e 64 20 6f |forward |to end o|
|00001de0| 66 20 6c 69 6e 65 0a 20 | 20 34 29 20 63 72 65 61 |f line. | 4) crea|
|00001df0| 74 65 20 61 6e 20 65 6d | 70 74 79 20 63 6f 6d 6d |te an em|pty comm|
|00001e00| 65 6e 74 0a 20 20 35 29 | 20 6d 6f 76 65 20 62 61 |ent.  5)| move ba|
|00001e10| 63 6b 77 61 72 64 20 74 | 6f 20 73 74 61 72 74 20 |ckward t|o start |
|00001e20| 6f 66 20 63 6f 6d 6d 65 | 6e 74 2c 20 69 6e 64 65 |of comme|nt, inde|
|00001e30| 6e 74 69 6e 67 20 69 66 | 20 6e 65 63 65 73 73 61 |nting if| necessa|
|00001e40| 72 79 2e 22 20 22 50 22 | 5d 29 0a 28 66 73 65 74 |ry." "P"|]).(fset|
|00001e50| 20 27 70 65 72 6c 2d 69 | 6e 64 65 6e 74 2d 6c 69 | 'perl-i|ndent-li|
|00001e60| 6e 65 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ne #[(&o|ptional |
|00001e70| 6e 6f 63 68 61 6e 67 65 | 20 70 61 72 73 65 2d 73 |nochange| parse-s|
|00001e80| 74 61 72 74 29 20 22 c0 | 64 60 5a 09 ae 84 8a c2 |tart) ".|d`Z.....|
|00001e90| 20 29 c0 89 89 1b 1c 1d | 1e 06 1e 07 1e 08 c9 79 | )......|.......y|
|00001ea0| 88 60 15 0e 06 66 ca 55 | ab 83 c9 aa c4 cb 0e 06 |.`...f.U|........|
|00001eb0| 21 89 14 3c ab 83 0c aa | b8 cc 0e 0d ae 82 0e 0e |!..<....|........|
|00001ec0| 21 ab 83 c9 aa ab cf c0 | 77 88 cc d0 21 ab 89 d1 |!.......|w...!...|
|00001ed0| 0c 0e 12 5c 5c 5d 14 aa | 96 67 d3 55 ab 87 0c 0e |...\\]..|.g.U....|
|00001ee0| 14 5a 14 aa 8a 67 d5 55 | ab 85 0c 0e 16 5c 5c 14 |.Z...g.U|.....\\.|
|00001ef0| 0c 69 5a 13 cf c0 77 88 | 0b a7 ab 8c 0b c9 55 ac |.iZ...w.|......U.|
|00001f00| 87 0d 60 7c 88 0c 6a 88 | 64 0e 07 5a 60 56 ab 86 |..`|..j.|d..Z`V..|
|00001f10| 64 0e 07 5a 62 88 0b 2e | 06 87 22 20 5b 6e 69 6c |d..Zb...|.." [nil|
|00001f20| 20 70 61 72 73 65 2d 73 | 74 61 72 74 20 70 65 72 | parse-s|tart per|
|00001f30| 6c 2d 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 66 |l-beginn|ing-of-f|
|00001f40| 75 6e 63 74 69 6f 6e 20 | 73 68 69 66 74 2d 61 6d |unction |shift-am|
|00001f50| 74 20 69 6e 64 65 6e 74 | 20 62 65 67 20 62 6f 66 |t indent| beg bof|
|00001f60| 20 70 6f 73 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 | pos cas|e-fold-s|
|00001f70| 65 61 72 63 68 20 30 20 | 36 31 20 63 61 6c 63 75 |earch 0 |61 calcu|
|00001f80| 6c 61 74 65 2d 70 65 72 | 6c 2d 69 6e 64 65 6e 74 |late-per|l-indent|
|00001f90| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 6e 6f 63 68 | looking|-at noch|
|00001fa0| 61 6e 67 65 20 70 65 72 | 6c 2d 6e 6f 63 68 61 6e |ange per|l-nochan|
|00001fb0| 67 65 20 22 20 09 0c 22 | 20 22 5c 5c 28 5c 5c 77 |ge " .."| "\\(\\w|
|00001fc0| 5c 5c 7c 5c 5c 73 5f 5c | 5c 29 2b 3a 22 20 31 20 |\\|\\s_\|\)+:" 1 |
|00001fd0| 70 65 72 6c 2d 6c 61 62 | 65 6c 2d 6f 66 66 73 65 |perl-lab|el-offse|
|00001fe0| 74 20 31 32 35 20 70 65 | 72 6c 2d 69 6e 64 65 6e |t 125 pe|rl-inden|
|00001ff0| 74 2d 6c 65 76 65 6c 20 | 31 32 33 20 70 65 72 6c |t-level |123 perl|
|00002000| 2d 62 72 61 63 65 2d 6f | 66 66 73 65 74 5d 20 36 |-brace-o|ffset] 6|
|00002010| 20 22 5c 0a 49 6e 64 65 | 6e 74 20 63 75 72 72 65 | "\.Inde|nt curre|
|00002020| 6e 74 20 6c 69 6e 65 20 | 61 73 20 50 65 72 6c 20 |nt line |as Perl |
|00002030| 63 6f 64 65 2e 20 20 52 | 65 74 75 72 6e 20 74 68 |code.  R|eturn th|
|00002040| 65 20 61 6d 6f 75 6e 74 | 20 74 68 65 20 69 6e 64 |e amount| the ind|
|00002050| 65 6e 74 61 74 69 6f 6e | 20 0a 63 68 61 6e 67 65 |entation| .change|
|00002060| 64 20 62 79 2c 20 6f 72 | 20 28 70 61 72 73 65 2d |d by, or| (parse-|
|00002070| 73 74 61 74 65 29 20 69 | 66 20 6c 69 6e 65 20 73 |state) i|f line s|
|00002080| 74 61 72 74 73 20 69 6e | 20 61 20 71 75 6f 74 65 |tarts in| a quote|
|00002090| 64 20 73 74 72 69 6e 67 | 2e 22 5d 29 0a 28 66 73 |d string|."]).(fs|
|000020a0| 65 74 20 27 63 61 6c 63 | 75 6c 61 74 65 2d 70 65 |et 'calc|ulate-pe|
|000020b0| 72 6c 2d 69 6e 64 65 6e | 74 20 23 5b 28 26 6f 70 |rl-inden|t #[(&op|
|000020c0| 74 69 6f 6e 61 6c 20 70 | 61 72 73 65 2d 73 74 61 |tional p|arse-sta|
|000020d0| 72 74 29 20 22 8a c0 79 | 88 60 c1 c0 c1 89 1a 1b |rt) "..y|.`......|
|000020e0| 1c 1d 1e 06 0e 07 ab 86 | 0e 07 62 88 aa 83 c8 20 |........|..b.... |
|000020f0| 88 60 0e 06 57 ab 90 60 | 16 07 c9 60 0e 06 c0 23 |.`..W..`|...`...#|
|00002100| 89 13 41 40 12 aa 6a ca | 0b 38 ab 84 0b 82 2d 01 |..A@..j.|.8....-.|
|00002110| 5c 6e ac a1 cb c1 77 88 | 67 cc 55 ab 84 c0 82 2d |\n....w.|g.U....-|
|00002120| 01 cd 20 88 6f ac 85 68 | ce 3e ab 84 c0 82 2d 01 |.. .o..h|.>....-.|
|00002130| 0e 0f 82 2d 01 5c 6e 66 | cc 55 ac 88 5c 6e 54 62 |...-.\nf|.U..\nTb|
|00002140| 88 69 82 2d 01 cd 20 88 | 68 d0 3d ac 8e 68 d1 3d |.i.-.. .|h.=..h.=|
|00002150| ab 9a 60 d2 5a 66 7a d3 | 3e ab 91 68 d0 3d ab 84 |..`.Zfz.|>..h.=..|
|00002160| d4 5c 6e 21 88 c0 79 88 | cd 20 88 aa 5c 5c 68 d5 |.\n!..y.|. ..\\h.|
|00002170| 3e ac 9b d4 5c 6e 21 88 | 0e 0f 69 8a 0e 06 62 88 |>...\n!.|..i...b.|
|00002180| d6 d7 21 29 ab 84 0e 18 | aa 81 c0 5c 5c 5c 5c aa |..!)....|...\\\\.|
|00002190| f9 5c 6e 62 88 6e ab 8f | 8a 0e 06 62 88 d6 d9 21 |.\nb.n..|...b...!|
|000021a0| 29 ab 84 0e 1a ae e4 8a | db 75 88 dc c1 77 88 d6 |).......|.u...w..|
|000021b0| dd 21 ab 85 db 79 88 aa | 72 d6 de 21 ab 8c 8a c1 |.!...y..|r..!....|
|000021c0| 7f 88 60 14 29 df e0 21 | ac 61 60 0e 06 57 ad 8d |..`.)..!|.a`..W..|
|000021d0| 0c 60 56 ab 87 e1 20 0e | 5c 22 5a aa 81 69 29 ae |.`V... .|\"Z..i).|
|000021e0| ab 6e ab 8d 0e 1a c0 55 | ab 87 0e 23 0e 0f 5c 5c |.n.....U|...#..\\|
|000021f0| aa 82 0e 1a e4 c1 78 88 | 6e ab 83 c0 aa 82 0e 25 |......x.|n......%|
|00002200| 68 e6 3d ab 84 e7 e8 21 | 88 e1 20 5c 5c 5c 5c 2e |h.=....!|.. \\\\.|
|00002210| 06 87 22 20 5b 30 20 6e | 69 6c 20 63 6f 6e 74 61 |.." [0 n|il conta|
|00002220| 69 6e 69 6e 67 2d 73 65 | 78 70 20 73 74 61 74 65 |ining-se|xp state|
|00002230| 20 63 6f 6c 6f 6e 2d 6c | 69 6e 65 2d 65 6e 64 20 | colon-l|ine-end |
|00002240| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00002250| 20 69 6e 64 65 6e 74 2d | 70 6f 69 6e 74 20 70 61 | indent-|point pa|
|00002260| 72 73 65 2d 73 74 61 72 | 74 20 70 65 72 6c 2d 62 |rse-star|t perl-b|
|00002270| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 66 75 6e 63 |eginning|-of-func|
|00002280| 74 69 6f 6e 20 70 61 72 | 73 65 2d 70 61 72 74 69 |tion par|se-parti|
|00002290| 61 6c 2d 73 65 78 70 20 | 33 20 22 20 09 0c 22 20 |al-sexp |3 " .." |
|000022a0| 31 32 33 20 70 65 72 6c | 2d 62 61 63 6b 77 61 72 |123 perl|-backwar|
|000022b0| 64 2d 74 6f 2d 6e 6f 6e | 63 6f 6d 6d 65 6e 74 20 |d-to-non|comment |
|000022c0| 28 35 39 20 31 32 35 29 | 20 70 65 72 6c 2d 63 6f |(59 125)| perl-co|
|000022d0| 6e 74 69 6e 75 65 64 2d | 73 74 61 74 65 6d 65 6e |ntinued-|statemen|
|000022e0| 74 2d 6f 66 66 73 65 74 | 20 34 34 20 35 38 20 32 |t-offset| 44 58 2|
|000022f0| 20 28 31 31 39 20 39 35 | 29 20 70 65 72 6c 2d 62 | (119 95|) perl-b|
|00002300| 61 63 6b 77 61 72 64 2d | 74 6f 2d 73 74 61 72 74 |ackward-|to-start|
|00002310| 2d 6f 66 2d 63 6f 6e 74 | 69 6e 75 65 64 2d 65 78 |-of-cont|inued-ex|
|00002320| 70 20 28 35 39 20 31 32 | 35 20 31 32 33 29 20 6c |p (59 12|5 123) l|
|00002330| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5b 20 09 5d 2a |ooking-a|t "[ .]*|
|00002340| 7b 22 20 70 65 72 6c 2d | 63 6f 6e 74 69 6e 75 65 |{" perl-|continue|
|00002350| 64 2d 62 72 61 63 65 2d | 6f 66 66 73 65 74 20 22 |d-brace-|offset "|
|00002360| 5b 20 09 5d 2a 7d 22 20 | 70 65 72 6c 2d 69 6e 64 |[ .]*}" |perl-ind|
|00002370| 65 6e 74 2d 6c 65 76 65 | 6c 20 31 20 22 20 09 0c |ent-leve|l 1 " ..|
|00002380| 5c 6e 22 20 22 3b 3f 23 | 22 20 22 5c 5c 28 5c 5c |\n" ";?#|" "\\(\\|
|00002390| 77 5c 5c 7c 5c 5c 73 5f | 5c 5c 29 2b 3a 22 20 73 |w\\|\\s_|\\)+:" s|
|000023a0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 3a |earch-fo|rward ":|
|000023b0| 22 20 63 75 72 72 65 6e | 74 2d 69 6e 64 65 6e 74 |" curren|t-indent|
|000023c0| 61 74 69 6f 6e 20 70 65 | 72 6c 2d 6c 61 62 65 6c |ation pe|rl-label|
|000023d0| 2d 6f 66 66 73 65 74 20 | 70 65 72 6c 2d 62 72 61 |-offset |perl-bra|
|000023e0| 63 65 2d 6f 66 66 73 65 | 74 20 22 20 09 22 20 70 |ce-offse|t " ." p|
|000023f0| 65 72 6c 2d 62 72 61 63 | 65 2d 69 6d 61 67 69 6e |erl-brac|e-imagin|
|00002400| 61 72 79 2d 6f 66 66 73 | 65 74 20 34 31 20 66 6f |ary-offs|et 41 fo|
|00002410| 72 77 61 72 64 2d 73 65 | 78 70 20 2d 31 5d 20 36 |rward-se|xp -1] 6|
|00002420| 20 22 5c 0a 52 65 74 75 | 72 6e 20 61 70 70 72 6f | "\.Retu|rn appro|
|00002430| 70 72 69 61 74 65 20 69 | 6e 64 65 6e 74 61 74 69 |priate i|ndentati|
|00002440| 6f 6e 20 66 6f 72 20 63 | 75 72 72 65 6e 74 20 6c |on for c|urrent l|
|00002450| 69 6e 65 20 61 73 20 50 | 65 72 6c 20 63 6f 64 65 |ine as P|erl code|
|00002460| 2e 0a 49 6e 20 75 73 75 | 61 6c 20 63 61 73 65 20 |..In usu|al case |
|00002470| 72 65 74 75 72 6e 73 20 | 61 6e 20 69 6e 74 65 67 |returns |an integ|
|00002480| 65 72 3a 20 74 68 65 20 | 63 6f 6c 75 6d 6e 20 74 |er: the |column t|
|00002490| 6f 20 69 6e 64 65 6e 74 | 20 74 6f 2e 0a 52 65 74 |o indent| to..Ret|
|000024a0| 75 72 6e 73 20 28 70 61 | 72 73 65 2d 73 74 61 74 |urns (pa|rse-stat|
|000024b0| 65 29 20 69 66 20 6c 69 | 6e 65 20 73 74 61 72 74 |e) if li|ne start|
|000024c0| 73 20 69 6e 73 69 64 65 | 20 61 20 73 74 72 69 6e |s inside| a strin|
|000024d0| 67 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 70 65 72 |g."]).(f|set 'per|
|000024e0| 6c 2d 62 61 63 6b 77 61 | 72 64 2d 74 6f 2d 6e 6f |l-backwa|rd-to-no|
|000024f0| 6e 63 6f 6d 6d 65 6e 74 | 20 23 5b 6e 69 6c 20 22 |ncomment| #[nil "|
|00002500| c0 89 19 1a 09 3f ad a6 | 60 12 c3 79 88 c4 0d 5c |.....?..|`..y...\|
|00002510| 6e c6 c7 24 ab 88 c7 95 | 62 88 c8 c0 77 88 c9 c0 |n..$....|b...w...|
|00002520| 78 88 6f ae 86 6e 3f ae | 82 ca 75 89 11 aa 57 2a |x.o..n?.|..u...W*|
|00002530| 87 22 20 5b 6e 69 6c 20 | 73 74 6f 70 20 6f 70 6f |." [nil |stop opo|
|00002540| 69 6e 74 20 30 20 72 65 | 2d 73 65 61 72 63 68 2d |int 0 re|-search-|
|00002550| 66 6f 72 77 61 72 64 20 | 63 6f 6d 6d 65 6e 74 2d |forward |comment-|
|00002560| 73 74 61 72 74 2d 73 6b | 69 70 20 6d 6f 76 65 20 |start-sk|ip move |
|00002570| 31 20 22 3b 22 20 22 20 | 09 0c 22 20 2d 31 5d 20 |1 ";" " |.." -1] |
|00002580| 36 20 22 5c 0a 4d 6f 76 | 65 20 70 6f 69 6e 74 20 |6 "\.Mov|e point |
|00002590| 62 61 63 6b 77 61 72 64 | 20 74 6f 20 61 66 74 65 |backward| to afte|
|000025a0| 72 20 74 68 65 20 66 69 | 72 73 74 20 6e 6f 6e 2d |r the fi|rst non-|
|000025b0| 77 68 69 74 65 2d 73 70 | 61 63 65 2c 20 73 6b 69 |white-sp|ace, ski|
|000025c0| 70 70 69 6e 67 20 63 6f | 6d 6d 65 6e 74 73 2e 22 |pping co|mments."|
|000025d0| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 70 65 | nil]).(|fset 'pe|
|000025e0| 72 6c 2d 62 61 63 6b 77 | 61 72 64 2d 74 6f 2d 73 |rl-backw|ard-to-s|
|000025f0| 74 61 72 74 2d 6f 66 2d | 63 6f 6e 74 69 6e 75 65 |tart-of-|continue|
|00002600| 64 2d 65 78 70 20 23 5b | 28 6c 69 6d 29 20 22 68 |d-exp #[|(lim) "h|
|00002610| c0 55 ab 84 c1 c2 21 88 | c3 79 88 60 0c 58 ab 84 |.U....!.|.y.`.X..|
|00002620| 0c 54 62 88 c5 c6 77 87 | 22 20 5b 34 31 20 66 6f |.Tb...w.|" [41 fo|
|00002630| 72 77 61 72 64 2d 73 65 | 78 70 20 2d 31 20 30 20 |rward-se|xp -1 0 |
|00002640| 6c 69 6d 20 22 20 09 0c | 22 20 6e 69 6c 5d 20 32 |lim " ..|" nil] 2|
|00002650| 5d 29 0a 28 66 73 65 74 | 20 27 69 6e 64 65 6e 74 |]).(fset| 'indent|
|00002660| 2d 70 65 72 6c 2d 65 78 | 70 20 23 5b 6e 69 6c 20 |-perl-ex|p #[nil |
|00002670| 22 c0 19 c2 20 1b 8a c4 | 7f 88 c5 20 88 c2 20 29 |"... ...|... .. )|
|00002680| 1e 06 c0 1e 07 c0 1e 08 | c0 1e 09 c0 1e 5c 6e cb |........|.....\n.|
|00002690| 0e 06 21 66 cc 55 ab 86 | cd ce 21 82 bd 00 cd cf |..!f.U..|..!.....|
|000026a0| 21 88 8a c0 7f 88 60 16 | 07 29 8a 6d ac 8e 60 0e |!.....`.|.).m..`.|
|000026b0| 07 58 ab 88 d0 60 64 d1 | 23 88 aa 6f c2 20 16 08 |.X...`d.|#..o. ..|
|000026c0| 29 0e 06 16 09 d1 79 88 | 60 cb 0e 08 21 57 ab d7 |).....y.|`...!W..|
|000026d0| d2 c0 cb 0e 06 21 5c 22 | 89 16 5c 6e a7 ab 8a 6c |.....!\"|..\n...l|
|000026e0| ab 83 d3 20 88 c2 20 16 | 09 c0 7f 88 60 16 07 d4 |... .. .|....`...|
|000026f0| d0 cb 0e 09 21 0e 07 5c | 22 38 ab a9 d1 79 88 d5 |....!..\|"8...y..|
|00002700| d6 21 ab 95 0e 5c 6e 3c | ac 90 0e 5c 6e d1 55 ac |.!...\n<|...\n.U.|
|00002710| 96 d7 20 0e 5c 6e 5a 0e | 18 55 ab 8c d9 0e 1a 0e |.. .\nZ.|.U......|
|00002720| 07 db 23 ab 83 dc 20 88 | dd 79 88 aa 21 cb 0b 21 |..#... .|.y..!..!|
|00002730| 62 88 cd de 21 2e 07 87 | 22 20 5b 6e 69 6c 20 63 |b...!...|" [nil c|
|00002740| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00002750| 70 6f 69 6e 74 2d 6d 61 | 72 6b 65 72 20 6f 6c 64 |point-ma|rker old|
|00002760| 70 6e 74 20 32 20 70 65 | 72 6c 2d 62 65 67 69 6e |pnt 2 pe|rl-begin|
|00002770| 6e 69 6e 67 2d 6f 66 2d | 66 75 6e 63 74 69 6f 6e |ning-of-|function|
|00002780| 20 62 6f 66 2d 6d 61 72 | 6b 20 65 6f 6c 20 6c 61 | bof-mar|k eol la|
|00002790| 73 74 2d 6d 61 72 6b 20 | 6c 73 65 78 70 2d 6d 61 |st-mark |lsexp-ma|
|000027a0| 72 6b 20 64 65 6c 74 61 | 20 6d 61 72 6b 65 72 2d |rk delta| marker-|
|000027b0| 70 6f 73 69 74 69 6f 6e | 20 36 31 20 6d 65 73 73 |position| 61 mess|
|000027c0| 61 67 65 20 22 43 61 6e | 27 74 20 69 6e 64 65 6e |age "Can|'t inden|
|000027d0| 74 20 61 20 66 6f 72 6d | 61 74 20 73 74 61 74 65 |t a form|at state|
|000027e0| 6d 65 6e 74 22 20 22 49 | 6e 64 65 6e 74 69 6e 67 |ment" "I|ndenting|
|000027f0| 20 50 65 72 6c 20 65 78 | 70 72 65 73 73 69 6f 6e | Perl ex|pression|
|00002800| 2e 2e 2e 22 20 70 61 72 | 73 65 2d 70 61 72 74 69 |..." par|se-parti|
|00002810| 61 6c 2d 73 65 78 70 20 | 30 20 70 65 72 6c 2d 69 |al-sexp |0 perl-i|
|00002820| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 64 65 6c 65 74 |ndent-li|ne delet|
|00002830| 65 2d 68 6f 72 69 7a 6f | 6e 74 61 6c 2d 73 70 61 |e-horizo|ntal-spa|
|00002840| 63 65 20 34 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |ce 4 loo|king-at |
|00002850| 22 5c 5c 73 2d 2a 3b 3f | 23 22 20 63 75 72 72 65 |"\\s-*;?|#" curre|
|00002860| 6e 74 2d 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 63 |nt-inden|tation c|
|00002870| 6f 6d 6d 65 6e 74 2d 63 | 6f 6c 75 6d 6e 20 72 65 |omment-c|olumn re|
|00002880| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00002890| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 2d 73 6b |comment-|start-sk|
|000028a0| 69 70 20 74 20 69 6e 64 | 65 6e 74 2d 66 6f 72 2d |ip t ind|ent-for-|
|000028b0| 63 6f 6d 6d 65 6e 74 20 | 31 20 22 49 6e 64 65 6e |comment |1 "Inden|
|000028c0| 74 69 6e 67 20 50 65 72 | 6c 20 65 78 70 72 65 73 |ting Per|l expres|
|000028d0| 73 69 6f 6e 2e 2e 2e 64 | 6f 6e 65 22 5d 20 35 20 |sion...d|one"] 5 |
|000028e0| 22 5c 0a 49 6e 64 65 6e | 74 20 65 61 63 68 20 6c |"\.Inden|t each l|
|000028f0| 69 6e 65 20 6f 66 20 74 | 68 65 20 50 65 72 6c 20 |ine of t|he Perl |
|00002900| 67 72 6f 75 70 69 6e 67 | 20 66 6f 6c 6c 6f 77 69 |grouping| followi|
|00002910| 6e 67 20 70 6f 69 6e 74 | 2e 22 20 6e 69 6c 5d 29 |ng point|." nil])|
|00002920| 0a 28 66 73 65 74 20 27 | 70 65 72 6c 2d 62 65 67 |.(fset '|perl-beg|
|00002930| 69 6e 6e 69 6e 67 2d 6f | 66 2d 66 75 6e 63 74 69 |inning-o|f-functi|
|00002940| 6f 6e 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |on #[(&o|ptional |
|00002950| 61 72 67 29 20 22 08 ac | 82 c1 10 08 c2 57 ab 83 |arg) "..|.....W..|
|00002960| c1 75 88 08 c2 55 ac 8d | c3 c4 c5 c6 08 24 ab 85 |.u...U..|.....$..|
|00002970| c2 95 53 62 88 60 87 22 | 20 5b 61 72 67 20 31 20 |..Sb.`."| [arg 1 |
|00002980| 30 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |0 re-sea|rch-back|
|00002990| 77 61 72 64 20 22 5e 5c | 5c 73 28 5c 5c 7c 5e 5c |ward "^\|\s(\\|^\|
|000029a0| 5c 73 2d 2a 73 75 62 5c | 5c 62 5b 5e 7b 5d 2b 7b |\s-*sub\|\b[^{]+{|
|000029b0| 5c 5c 7c 5e 5c 5c 73 2d | 2a 66 6f 72 6d 61 74 5c |\\|^\\s-|*format\|
|000029c0| 5c 62 5b 5e 3d 5d 2a 3d | 5c 5c 7c 5e 5c 5c 2e 22 |\b[^=]*=|\\|^\\."|
|000029d0| 20 6e 69 6c 20 6d 6f 76 | 65 5d 20 35 20 22 5c 0a | nil mov|e] 5 "\.|
|000029e0| 4d 6f 76 65 20 62 61 63 | 6b 77 61 72 64 20 74 6f |Move bac|kward to|
|000029f0| 20 6e 65 78 74 20 62 65 | 67 69 6e 6e 69 6e 67 2d | next be|ginning-|
|00002a00| 6f 66 2d 66 75 6e 63 74 | 69 6f 6e 2c 20 6f 72 20 |of-funct|ion, or |
|00002a10| 61 73 20 66 61 72 20 61 | 73 20 70 6f 73 73 69 62 |as far a|s possib|
|00002a20| 6c 65 2e 0a 57 69 74 68 | 20 61 72 67 75 6d 65 6e |le..With| argumen|
|00002a30| 74 2c 20 72 65 70 65 61 | 74 20 74 68 61 74 20 6d |t, repea|t that m|
|00002a40| 61 6e 79 20 74 69 6d 65 | 73 3b 20 6e 65 67 61 74 |any time|s; negat|
|00002a50| 69 76 65 20 61 72 67 73 | 20 6d 6f 76 65 20 66 6f |ive args| move fo|
|00002a60| 72 77 61 72 64 2e 0a 52 | 65 74 75 72 6e 73 20 6e |rward..R|eturns n|
|00002a70| 65 77 20 76 61 6c 75 65 | 20 6f 66 20 70 6f 69 6e |ew value| of poin|
|00002a80| 74 20 69 6e 20 61 6c 6c | 20 63 61 73 65 73 2e 22 |t in all| cases."|
|00002a90| 20 22 70 22 5d 29 0a 28 | 66 73 65 74 20 27 70 65 | "p"]).(|fset 'pe|
|00002aa0| 72 6c 2d 65 6e 64 2d 6f | 66 2d 66 75 6e 63 74 69 |rl-end-o|f-functi|
|00002ab0| 6f 6e 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |on #[(&o|ptional |
|00002ac0| 61 72 67 29 20 22 08 ac | 82 c1 10 c2 1b 08 c4 56 |arg) "..|.......V|
|00002ad0| ab bc 60 64 57 ab b7 60 | 1d 0b ab 8a c1 75 88 c6 |..`dW..`|.....u..|
|00002ae0| c1 21 88 6f ab 8a 6f ac | 83 c7 75 88 c6 c7 21 88 |.!.o..o.|..u...!.|
|00002af0| c8 13 c9 c1 21 88 ca c8 | 77 88 cb cc 21 ab 83 c1 |....!...|w...!...|
|00002b00| 79 88 60 0d 58 ac 52 29 | 08 53 89 10 aa 40 08 c4 |y.`.X.R)|.S...@..|
|00002b10| 57 ad b5 60 1d c6 c1 21 | 88 cd c1 21 88 c1 79 88 |W..`...!|...!..y.|
|00002b20| 60 0d 59 ab 9c c6 ce 21 | 88 6f ac 92 c9 c1 21 88 |`.Y....!|.o....!.|
|00002b30| ca c8 77 88 cb cc 21 ab | 88 c1 79 88 aa 83 65 62 |..w...!.|..y...eb|
|00002b40| 88 29 08 54 89 10 aa 47 | 29 87 22 20 5b 61 72 67 |.).T...G|)." [arg|
|00002b50| 20 31 20 74 20 66 69 72 | 73 74 20 30 20 70 6f 73 | 1 t fir|st 0 pos|
|00002b60| 20 70 65 72 6c 2d 62 65 | 67 69 6e 6e 69 6e 67 2d | perl-be|ginning-|
|00002b70| 6f 66 2d 66 75 6e 63 74 | 69 6f 6e 20 2d 31 20 6e |of-funct|ion -1 n|
|00002b80| 69 6c 20 66 6f 72 77 61 | 72 64 2d 6c 69 73 74 20 |il forwa|rd-list |
|00002b90| 22 20 09 22 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |" ." loo|king-at |
|00002ba0| 22 5b 23 5c 6e 5d 22 20 | 66 6f 72 77 61 72 64 2d |"[#\n]" |forward-|
|00002bb0| 73 65 78 70 20 32 5d 20 | 33 20 22 5c 0a 4d 6f 76 |sexp 2] |3 "\.Mov|
|00002bc0| 65 20 66 6f 72 77 61 72 | 64 20 74 6f 20 6e 65 78 |e forwar|d to nex|
|00002bd0| 74 20 65 6e 64 2d 6f 66 | 2d 66 75 6e 63 74 69 6f |t end-of|-functio|
|00002be0| 6e 2e 0a 54 68 65 20 65 | 6e 64 20 6f 66 20 61 20 |n..The e|nd of a |
|00002bf0| 66 75 6e 63 74 69 6f 6e | 20 69 73 20 66 6f 75 6e |function| is foun|
|00002c00| 64 20 62 79 20 6d 6f 76 | 69 6e 67 20 66 6f 72 77 |d by mov|ing forw|
|00002c10| 61 72 64 20 66 72 6f 6d | 20 74 68 65 20 62 65 67 |ard from| the beg|
|00002c20| 69 6e 6e 69 6e 67 20 6f | 66 20 6f 6e 65 2e 0a 57 |inning o|f one..W|
|00002c30| 69 74 68 20 61 72 67 75 | 6d 65 6e 74 2c 20 72 65 |ith argu|ment, re|
|00002c40| 70 65 61 74 20 74 68 61 | 74 20 6d 61 6e 79 20 74 |peat tha|t many t|
|00002c50| 69 6d 65 73 3b 20 6e 65 | 67 61 74 69 76 65 20 61 |imes; ne|gative a|
|00002c60| 72 67 73 20 6d 6f 76 65 | 20 62 61 63 6b 77 61 72 |rgs move| backwar|
|00002c70| 64 2e 22 20 22 70 22 5d | 29 0a 28 66 73 65 74 20 |d." "p"]|).(fset |
|00002c80| 27 6d 61 72 6b 2d 70 65 | 72 6c 2d 66 75 6e 63 74 |'mark-pe|rl-funct|
|00002c90| 69 6f 6e 20 23 5b 6e 69 | 6c 20 22 c0 60 21 88 c1 |ion #[ni|l ".`!..|
|00002ca0| 20 88 c0 60 21 88 c2 20 | 88 c3 20 87 22 20 5b 70 | ..`!.. |.. ." [p|
|00002cb0| 75 73 68 2d 6d 61 72 6b | 20 70 65 72 6c 2d 65 6e |ush-mark| perl-en|
|00002cc0| 64 2d 6f 66 2d 66 75 6e | 63 74 69 6f 6e 20 70 65 |d-of-fun|ction pe|
|00002cd0| 72 6c 2d 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |rl-begin|ning-of-|
|00002ce0| 66 75 6e 63 74 69 6f 6e | 20 62 61 63 6b 77 61 72 |function| backwar|
|00002cf0| 64 2d 70 61 72 61 67 72 | 61 70 68 5d 20 32 20 22 |d-paragr|aph] 2 "|
|00002d00| 5c 0a 50 75 74 20 6d 61 | 72 6b 20 61 74 20 65 6e |\.Put ma|rk at en|
|00002d10| 64 20 6f 66 20 50 65 72 | 6c 20 66 75 6e 63 74 69 |d of Per|l functi|
|00002d20| 6f 6e 2c 20 70 6f 69 6e | 74 20 61 74 20 62 65 67 |on, poin|t at beg|
|00002d30| 69 6e 6e 69 6e 67 2e 22 | 20 6e 69 6c 5d 29 0a    |inning."| nil]). |
+--------+-------------------------+-------------------------+--------+--------+